 * Sample 1:  all democratic years in West European constitutional monarchies
gen include1=0
replace include1=1 if party!="neutral"&ngovparties>1&bmr_dem==1
replace include1=0 if country=="Norway"&in_year<1905
replace include1=0 if country=="Finland"

gen formwar = formateur*war
gen formstrong=formateur*strong_nominator
gen forminv=formateur*investiture
gen formcon=formateur*confidence
gen formenp=formateur*enp

gen seatwar=share_seats*war
gen seatstrong=share_seats*strong_nominator
gen seatinv=share_seats*investiture
gen seatcon=share_seats*confidence
gen seatenp=share_seats*enp

gen yr_change=1935 if country=="Belgium"
replace yr_change=1953 if country=="Denmark"
replace yr_change=1941 if country=="Iceland"
replace yr_change=1951 if country=="Netherlands"
replace yr_change=1928 if country=="Norway"
replace yr_change=1974 if country=="Sweden"
gen yrrel=year - yr_change

egen cid = group(country)

* replace include1=0 if country=="Denmark"&cabinet=="Zahle-IIb"
* Zahle was no royalist.  Eventually the king dismissed him in a move seen as unconstitutional.

* Table 2
list country cabinet in_year if include1==1&in_year<1945&formateur==1

* Table 3 / pre-WWII regression / post-war
regress share_partisans share_seats formateur if include1==1&in_year<1945
regress share_partisans share_seats formateur if include1==1&in_year>=1945

* Appendix Tables 
* 5 countries that switch from strong to weak nominator
regress share_partisans share_seats formateur strong_nom seatstrong formstrong if include1==1&country=="Belgium"
lincom formateur+formstrong
regress share_partisans share_seats formateur  strong_nom seatstrong formstrong if include1==1&country=="Denmark"
lincom formateur+formstrong
regress share_partisans share_seats formateur  strong_nom seatstrong formstrong if include1==1&country=="Iceland"
lincom formateur+formstrong
regress share_partisans share_seats formateur strong_nom seatstrong formstrong if include1==1&country=="Netherlands"
lincom formateur+formstrong
regress share_partisans share_seats formateur strong_nom seatstrong formstrong if include1==1&country=="Norway"
lincom formateur+formstrong
* Denmark without Zahle IIb
regress share_partisans share_seats formateur  strong_nom seatstrong formstrong if include1==1&country=="Denmark"&cabinet!="Zahle-IIb"
lincom formateur+formstrong

* Table 4  / pooling all countries
* Model 1
regress share_partisans share_seats formateur strong_nom seatstrong formstrong if include1==1

* Model 2 / controlling for war cabinets
regress share_partisans share_seats formateur war strong_nom seatstrong seatwar formwar formstrong if include1==1

* Model 3 / also controlling for investiture, confidence & bargaining complexity
regress share_partisans share_seats formateur strong_nom seatstrong formstrong investiture seatinv forminv confidence seatcon formcon enp seatenp formenp if include1==1

* Removing one country at a time / Model 1
regress share_partisans share_seats formateur strong_nom seatstrong formstrong if include1==1&country!="Belgium"
regress share_partisans share_seats formateur strong_nom seatstrong formstrong if include1==1&country!="Denmark"
regress share_partisans share_seats formateur strong_nom seatstrong formstrong if include1==1&country!="Iceland"
regress share_partisans share_seats formateur strong_nom seatstrong formstrong if include1==1&country!="Luxembourg"
regress share_partisans share_seats formateur strong_nom seatstrong formstrong if include1==1&country!="Netherlands"
regress share_partisans share_seats formateur strong_nom seatstrong formstrong if include1==1&country!="Norway"
regress share_partisans share_seats formateur strong_nom seatstrong formstrong if include1==1&country!="Sweden"

* controlling for introduction of PR:  use the variable PR = (year>=year_pr) and interactions with share_seats and formateur...  No effect

* Removing one party from each cabinet
gsort country in_year cabinet party
gen include4=include1
replace include4=0 if cabinet!=cabinet[_n-1]
regress share_partisans share_seats formateur strong_nom seatstrong formstrong if include4==1
lincom formateur+formstrong

sort cabinet party
by cabinet: gen ui = floor((ngov)*runiform() + 1)
egen seqno = seq(),by(cabinet)
gen include5=include1
replace include5=0 if seqno == ui
regress share_partisans share_seats formateur strong_nom seatstrong formstrong if include5==1
lincom formateur+formstrong




